|
|
 |
|
|
|
|
68:
69:
70: '##ModelId=352AB4DE0122
71: Public Property Get DBColumn() As Object
72: 'used when retrieving value of a property, on the right side of an assignment.
73: 'Syntax: Debug.Print X.DBColumn
74: Set DBColumn = mvarDBColumn
75: End Property
76:
77:
78:
79: '##ModelId=352AB4DF000A
80: Public Sub openDBResultset(argSQL As String, Optional argDBConnection As ADODB.Connection, Optional argFlag, Optional argRSType) 'As Variant
81:
82: On Error GoTo openDBResultsetErr
83: Set mvarpResultset = argDBConnection.Execute(argSQL)
84: 'mvarpResultset.Open argSQL, argDBConnection
85: Exit Sub
86: openDBResultsetErr:
87: MsgBox Error # & Err.Number & : & Err.Description & Source: & Err.Source
88: End Sub
89: '##ModelId=352AB4DF0370
90: Public Sub prepareForChange()
91: If pChangedByCode Then Exit Sub
92: 'just set the flag if data is changed
93: 'it gets reset to false when a new record is displayed
94: pDataChanged = True
95: End Sub
96:
97:
98:
99:
100:
101: '##ModelId=352AB4E001AE
102: Public Property Let pBookmark(ByVal vData As Variant)
103: 'used when assigning a value to the property, on the left side of an assignment.
104: 'Syntax: X.pBookmark = 5
105: mvarpBookmark = vData
106: End Property
107:
108:
109: '##ModelId=352AB4E00366
110: Public Property Set pBookmark(ByVal vData As Object)
111: 'used when assigning an Object to the property, on the left side of a Set statement.
|
|
|
|
|
|